$PBExportHeader$cat_usuario.sru
$PBExportComments$Clase con los datos de un usuario.
forward
global type cat_usuario from nonvisualobject
end type
end forward

global type cat_usuario from nonvisualobject autoinstantiate
end type

type variables
Public:
string		Usuario
string		Nombre
string		Perfil
datetime		Fecha_Conexion

end variables

forward prototypes
public subroutine uof_copiaren (ref cat_usuario Copia)
end prototypes

public subroutine uof_copiaren (ref cat_usuario Copia);Copia.Usuario = This.Usuario
Copia.Nombre = This.Nombre
Copia.Perfil = This.Perfil
Copia.Fecha_Conexion = This.Fecha_Conexion

end subroutine

on cat_usuario.create
TriggerEvent( this, "constructor" )
end on

on cat_usuario.destroy
TriggerEvent( this, "destructor" )
end on

